home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48hor2
/
sortls.rpl
< prev
next >
Wrap
Text File
|
1993-02-18
|
427b
|
15 lines
%%HP: T(3)A(D)F(.);
@ SORTLS by Joe Horn, in SRPL format
":: CK1&Dispatch # 5h
:: INNERCOMP 1LAMBIND 1GETLAM
#1+_ONE_DO 1GETLAM ROLL # 0h INDEX@
BEGIN 2DUP SWAP#- #2/ DUP#0<>
WHILE
:: OVERSWAP #-DUP #4+PICK 5PICK (1420A) %0<>
ITE ROTDROPSWAP SWAPDROP
;
REPEAT ROT2DROP UNROLL
LOOP 1GETABND {}N
;
;"
@ Change (1420A) to PTR 1420A if using RPL.LIB to compile.